home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / misc / ARC30.lha / ARC / Install / Install_ARC < prev    next >
Text File  |  1998-09-21  |  8KB  |  220 lines
  1. ; ***************************************************************
  2. ; $VER: ARC v3.0 Installer Script 1.0  (31.08.1998) by Jens Weyer
  3. ; ***************************************************************
  4.  
  5. (set #def_lang_English       0)
  6. (set #def_lang_Deutsch       1)
  7. (set #def_lang_Italiano      2)
  8. (set #def_lang_Srpski        3)
  9. (set #def_lang_Français      4)
  10. (set #def_lang_Svenska       5)
  11.  
  12. (set #def_doc_English       0)
  13. (set #def_doc_Deutsch       1)
  14. (set #def_doc_Italiano      2)
  15. (set #def_doc_Srpski        3)
  16.  
  17. (set #def_cat_lang #def_lang_English)
  18. (set #def_doc_lang #def_doc_English)
  19. (set #wrongOS  "ARC needs at least OS 2.x to run\n")
  20. (set #ARCInst_dir  (cat "Choose ARC directory\n"
  21.                     "(NO extra drawer will be created!)"))
  22. (set #lang_catalog (cat "Which catalog file do you want to install?\n"
  23.                         "(English language is built-in)"))
  24. (set #lang_manual "Select language for AmigaGuide® documentation")
  25. (set #icons_prompt "Which icons do you want to install?\n")
  26. (set #ndx_prompt (cat "Do you want to install the updated\n"
  27.                       "Aminet® Index List ?\n"
  28.                       "(updated: 18-Aug-98)\n"))
  29. (set #Y "Sure !")
  30. (set #N "Naah...")
  31. (set #done_1   (cat "\nARC has been succesfuly installed.\n\n"
  32.                     "Click the \"ARC\" icon in the\n"))
  33. (set #done_2        "\ndirectory to run it.")
  34.  
  35. (if (= @language "deutsch")
  36.     (
  37.         (set #def_cat_lang #def_lang_Deutsch)
  38.         (set #def_doc_lang #def_doc_Deutsch)
  39.         (set #wrongOS  "ARC benötigt OS 2.x oder höher\n")
  40.         (set #ARCInst_dir  (cat"Wählen Sie ein Verzeichnis für ARC\n"
  41.                            "(es wird KEIN eigenes Verzeichnis erstellt!)"))
  42.         (set #lang_catalog (cat "Welche catalog-Datei wollen Sie installieren?\n"
  43.                                 "(Englisch ist eingebaut)"))
  44.         (set #lang_manual "Wählen Sie eine Sprache für die AmigaGuide® Dokumentation")
  45.         (set #icons_prompt "Welche Piktogramme wollen Sie installieren?")
  46.         (set #ndx_prompt (cat "Wollen Sie die aktualisierte\n"
  47.                               "Aminet® Index Liste installieren ?\n"
  48.                               "(aktualisiert: 18-Aug-98)\n"))
  49.         (set #Y "Natürlich !")
  50.         (set #N "Lieber nicht...")
  51.         (set #done_1   (cat "\nARC wurde erfolgreich installiert.\n\n"
  52.                             "Klicken Sie auf das \"ARC\"-Icon im Verzeichnis,\n"))
  53.         (set #done_2        "\num ARC zu starten.")
  54.     )
  55. )
  56.  
  57. (if (= @language "italiano")
  58.     (
  59.         (set #def_cat_lang #def_lang_italiano)
  60.         (set #def_doc_lang #def_doc_italiano)
  61.         (set #wrongOS  "ARC richiede almeno l'OS 2.x per funzionare\n")
  62.         (set #ARCInst_dir  (cat "Scegli la directory per ARC\n"
  63.                             "(Nessun nuovo cassetto sarà creato)"))
  64.         (set #lang_catalog (cat "Quale catalog vuoi installare?\n"
  65.                                 "(L'inglese è gia predisposto)"))
  66.         (set #lang_manual "Scegli la lingua per la documentazione in formato AmigaGuide®")
  67.         (set #icons_prompt "Quale tipo di icone vuoi installare?\n")
  68.         (set #ndx_prompt (cat "Vuoi installare la lista degli indici\n"
  69.                               "di Aminet® aggiornata?\n"
  70.                               "(aggiornata al: 18-Ago-98)\n"))
  71.         (set #Y "Certo!")
  72.         (set #N "No...")
  73.         (set #done_1   (cat "\nARC è stato installato con successo.\n\n"
  74.                             "Premi l'icona di \"ARC\" nella\n"))
  75.         (set #done_2        "\nsua directory per lanciarlo.")
  76.     )
  77. )
  78.  
  79. (if (= @language "srpski")
  80.     (
  81.         (set #def_cat_lang #def_lang_Srpski)
  82.         (set #def_doc_lang #def_doc_Srpski)
  83.         (set #wrongOS  "ARC-u je potreban barem OS 2.x\n")
  84.         (set #ARCInst_dir
  85.             (cat "Odaberite direktorijum za ARC\n(Direktorijum NEÁE "
  86.                  "biti napravljen!)"
  87.             )
  88.         )
  89.         (set #lang_catalog
  90.             (cat "Koji katalog äelite da instalirate?\n"
  91.                  "(Za engleski nije potreban nijedan)"
  92.             )
  93.         )
  94.         (set #lang_manual
  95.             (cat "Za koji jezik äelite da instalirate AmigaGuide®"
  96.                  "dokumentaciju?"
  97.             )
  98.         )
  99.         (set #icons_prompt "Koje ikone äelite da instalirate?\n")
  100.         (set #ndx_prompt
  101.             (cat "Da li äelite da instalirate novu\n"
  102.                  "listu direktorijuma na  Aminetu®?\n"
  103.                  "(od 18. avgusta 1998.)\n"
  104.             )
  105.         )
  106.         (set #Y "Da")
  107.         (set #N "Ne")
  108.         (set #done_1
  109.             (cat "\nARC je uspeãno instaliran.\n\n"
  110.                  "Kliknite na ikonu \"ARC\" u\n"
  111.             )
  112.         )
  113.         (set #done_2 "\ndirektorijumu da ga startujete.")
  114.     )
  115. )
  116.  
  117. ; * Start *
  118.  
  119. (set OS_ver (getversion "exec.library" (resident)))
  120. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  121.  
  122. (complete 0)
  123.  
  124. (set ARC_dir
  125.         (askdir
  126.                 (default "Sys:")
  127.                 (prompt  #ARCInst_dir)
  128.                 (help    @askdir-help)
  129.         )
  130. )
  131.  
  132. (complete 10)
  133.  
  134. (set Catalog_lang
  135.         (askchoice
  136.                 (prompt  #lang_catalog)
  137.                 (help @askoptions-help)
  138.                 (choices "English" "Deutsch" "Italiano" "Srpski" "Français" "Svenska" )
  139.                 (default #def_cat_lang)
  140.         )
  141. )
  142.  
  143. (set Docs_lang
  144.         (askchoice
  145.                 (prompt  #lang_manual)
  146.                 (help    @askoptions-help)
  147.                 (choices "English" "Deutsch" "Italiano" "Srpski" )
  148.                 (default #def_doc_lang)
  149.         )
  150. )
  151.  
  152. (complete 25)
  153.  
  154. (set Icon_set
  155.         (askchoice
  156.                 (prompt  #icons_prompt)
  157.                 (help    @askoptions-help)
  158.                 (choices "MagicWB" "NewIcons" )
  159.                 (default 1)
  160.         )
  161. )
  162.  
  163. (set NDX
  164.         (askbool
  165.                 (prompt #ndx_prompt)
  166.                 (help @askoptions-help)
  167.                 (choices #Y #N)
  168.         )
  169. )
  170.  
  171. (complete 50)
  172.  
  173. (makedir ARC_dir (infos))
  174.  
  175. (copyfiles (source "/ARC") (dest ARC_dir) (help @copyfiles-help))
  176. (if (= Icon_set 0)
  177.    (copyfiles (source "/Icons/ARC.info") (dest ARC_dir) (help @copyfiles-help))
  178.    (copyfiles (source "/ARC.info") (dest ARC_dir) (help @copyfiles-help))
  179. )
  180.  
  181. (complete 75)
  182.  
  183. (if (> Catalog_lang 0)
  184.       (
  185.          (set Cat_dir (tackon ARC_dir "Catalogs"))
  186.          (if (not (exists Cat_dir))  (makedir Cat_dir))
  187.          (if (= Catalog_lang #def_lang_Deutsch   ) ((set lang "deutsch") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  188.          (if (= Catalog_lang #def_lang_Italiano   ) ((set lang "italiano") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  189.          (if (= Catalog_lang #def_lang_Srpski   ) ((set lang "srpski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  190.          (if (= Catalog_lang #def_lang_Français   ) ((set lang "français") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  191.          (if (= Catalog_lang #def_lang_Svenska   ) ((set lang "svenska") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  192.       )
  193. )
  194.  
  195. (complete 90)
  196.  
  197. (set Doc_dir (tackon ARC_dir "Doc"))
  198.  
  199. (if (= Docs_lang #def_doc_English ) (copyfiles (source "/Doc/ARC.guide")  (dest Doc_dir) (infos)))
  200. (if (= Docs_lang #def_doc_Deutsch ) (copyfiles (source "/Doc/ARC.guide")  (dest Doc_dir) (infos)))
  201. (if (= Docs_lang #def_doc_Italiano ) (copyfiles (source "/Doc/ARC_italiano.guide")  (dest Doc_dir) (newname "ARC.guide") (infos)))
  202. (if (= Docs_lang #def_doc_Srpski ) (copyfiles (source "/Doc/ARC_srpski.guide")  (dest Doc_dir) (newname "ARC.guide") (infos)))
  203. (if (= Icon_set 1)
  204.    (copyfiles (source "/Doc/ARC.guide.info") (dest Doc_dir) (help @copyfiles-help))
  205.    (copyfiles (source "/Icons/ARC.guide.info") (dest Doc_dir) (help @copyfiles-help))
  206. )
  207.  
  208. (copyfiles (source "/Doc/English") (dest Doc_dir) (help @copyfiles-help))
  209. (copyfiles (source "/Doc/Readme.First") (dest Doc_dir) (help @copyfiles-help))
  210.  
  211.  
  212. (if (= NDX 1)
  213.    (copyfiles (source "/ARC.NDX") (dest ARC_dir) (help @copyfiles-help))
  214. )
  215.  
  216. (complete 100)
  217. (message #done_1 "\"" ARC_dir "\"" #done_2)
  218.  
  219. (exit (QUIET))
  220.